home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / mcode_01 / source / general / rename.s < prev    next >
Encoding:
Text File  |  1995-04-27  |  1.2 KB  |  37 lines
  1. * Program     : Rename a file
  2. * Author    : Stephen McNabb
  3. * Creation date : 16th February 1995
  4. * Last update    : 16th February 1995
  5. * Parameters    : Address of filename to be renamed
  6. *          Address of new filename
  7. *          Also a parameter '0' which is reserved
  8. * Output    : A negative number will be returned in d0 if
  9. *          there is an error
  10.  
  11. start:    jsr    cls        /clear the screen
  12.     move.l    #new,-(sp)    /move address of new filename to stack
  13.     move.l    #old,-(sp)    /move address of old filename to stack
  14.     move.w    #0,-(sp)    /move value '0' to stack  Note: Don't change
  15.     move.w    #$56,-(sp)    /use Frename() function
  16.     trap    #1        /use gemdos
  17.     add.l    #12,sp        /tidy up stack
  18.  
  19.     cmpi.b    #0,d0        /check to see if there was an error
  20.     blt    err        /if there is display an error message
  21.     
  22.     move.l    #success,d0    /else move address of success message into d0
  23.     bra    skip        /and skip the next line
  24. err:    move.l    #error,d0    /move address of error message into d0
  25. skip:    jsr    ptext        /display message on screen
  26.     
  27. end:    bra    exit        /exit from program
  28.  
  29.     include    "\SOURCE\FUNCTION.S"    /include standard functions
  30.  
  31. *** Program Data ***
  32.     
  33. new:    dc.b    '\NEW.S',0        /new filename
  34. old:    dc.b    '\OLD.S',0        /old filename
  35. success:dc.b    'File renamed!',0    /success message
  36. error:    dc.b    'Error!',0        /error message
  37. *** End of file ***